Option Explicit
Sub N_Sample018()
    Dim t As Single
    t = Timer + 2
    Do
        Debug.Print Timer - t + 2
        If Timer > t Then Exit Do
    Loop
End Sub